home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1987 March / Ahoy_Magazine_87-03_1987_Double_L_Side_B.d64 / Comal 64 boot (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  56 lines
  1. 1 rem open15,8,15,"s0:[195]omal 64 boot":close15:save "0:[195]omal 64 boot",8
  2. 10 print "[147]"; : rem clear screen
  3. 20 poke 53281,0: rem background black
  4. 25 poke 53280,0: rem border     black
  5. 27 print "";   : rem pencolor green
  6. 30 if a=1 then 90
  7. 35 open 15,8,15,"u;"
  8. 40 input#15,d1,a$,d2,d3
  9. 41 if a$="ok" then print#15,"u:":input#15,d1,a$,d2,d3
  10. 43 if "1571"=mid$(a$,14,4)thenprint#15,"u0>m0":close15:goto70
  11. 50 close15
  12. 60 if "1541"=mid$(a$,14,4) then 70
  13. 61 if "m.s.d."<>mid$(a$,1,6) then 100
  14. 62 print "[147]loading ml.fastload-msd"
  15. 63 if a=0 then a=1:load"ml.fastload-msd",8,1
  16. 70 print"[147]loading ml.sizzle
  17. 80 [139] a[178]0 [167] a[178]1:[147]"ml.sizzle",8,1
  18. 90 [158] 49152:[156]
  19. 100 [153] "loadtotototototototototototototototototototototototototototototototototototototototo";
  20. 110 [153] " please wait while comal 0.14 is loaded ";
  21. 120 [153]
  22. 130 [153] "printtutorial: foundations ... with comal"
  23. 145 [153] "documentation: comal handbook
  24. 150 print "newsletter: comal today
  25. 155 [153]
  26. 160 [153] "           defavailable from:           "
  27. 165 [153] "sys"; : [143] pencolor yellow
  28. 170 [153] "  comal users group, u.s.a., limited   "
  29. 180 [153] "          6041 monona drive            "
  30. 185 [153] "          madison, wi 53716
  31. 190 print "[153]send self addressed stamped envelope"
  32. 200 print "or call [158]608-222-4432[153] for more info."
  33. 210 print "" : rem pencolor white
  34. 230 print "  comal programs can only be executed"
  35. 240 print "  after the language has been loaded."
  36. 245 print "[159]"; : rem pencolor cyan
  37. 250 print "comal programs on this disk are loaded:"
  38. 270 print "   load "chr$(34)"name"chr$(34)
  39. 272 print "   run"
  40. 275 print "[185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]";
  41. 280 print "   backup this disk before you use it   [146]";
  42. 899 rem
  43. 900 rem
  44. 910 rem chain"hi + <return key>
  45. 920 [151] 198,9
  46. 930 [151] 631,[198]("c")
  47. 940 [151] 632,[198]("h")
  48. 950 [151] 633,[198]("a")
  49. 960 [151] 634,[198]("i")
  50. 970 [151] 635,[198]("n")
  51. 980 [151] 636,34
  52. 990 [151] 637,[198]("h")
  53. 1000 [151] 638,[198]("i")
  54. 1010 [151] 639,13
  55. 1020 [147] "comal 64 0.14",8
  56.